home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / wlib11_2.zip / EXAMPLES.EXE / EXAM95.C < prev    next >
C/C++ Source or Header  |  1991-03-13  |  977b  |  38 lines
  1.   #include "window.h"
  2.   #define NORM CREATE_VIDEO_ATTRIBUTE(black,white)
  3.  
  4.   WPOINTER w1,w2;
  5.  
  6.   main()
  7.   {
  8.     WindowInitializeSystem();
  9.  
  10.     /* Make sure video page is 0 */
  11.     SetVisibleVideoPage(0);
  12.     SetActiveVideoPage(0);
  13.  
  14.     /*Save Base screen for video pages 0 and 1 */
  15.     WindowSaveInitial(0);
  16.     WindowSaveInitial(1);
  17.  
  18.     /* Initialize Windows */
  19.     w1 = WindowInitialize(BORDER,1,1,30,10,NORM,NORM,SINGLEBOX);
  20.     SetActiveVideoPage(1);
  21.     w2 = WindowInitialize(BORDER,1,1,30,10,NORM,NORM,SINGLEBOX);
  22.     WindowOpen(w1);
  23.     WindowOpen(w2);
  24.     WindowWriteString(w1,"This is window 1 on page 0",1,1);
  25.     WindowWriteString(w2,"This is window 2 on page 1",1,1);
  26.  
  27.     /* Display video page 0 */
  28.     WindowDisplay(w1,1,NOEFFECT);
  29.     GET_KEY();
  30.  
  31.     /* Change to video page 1 and display */
  32.     SetVisibleVideoPage(1);
  33.     WindowDisplay(w2,1,NOEFFECT);
  34.     GET_KEY();
  35.  
  36.     /* Reset to page 0 */
  37.     SetVisibleVideoPage(0);
  38.   }